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PaTeSeeh SATS SYSTEM SERVICE TESTS SEXIT (SUCC $.C.) 


1 
(1) 
- TITLE 
- IDENT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* * 
* * 
* * 
7 ® 
* * 
" 0 * 
* N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
® ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TW ARE OR ANY OTHER * 
® THEREOF oly NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* 0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
* s 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
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IBILIT 
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LITY 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 

THIS wo CON‘AINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE sATo3s* TO TEST SUCCESSFUL 
OPERATION OF THE $éxi1 SYSTEM SERVICE. THE SERVICE IS INVOKED 
UNDER VARIOUS INPUT ITIONS WITH VARYING INPUT PARAMETERS. ONL 
SUCCESSFUL STATUS CODES ARE EXPECTED IN Mt TEST MODULE. CORRECT 
OPERATION OF i ght ht FOR ror OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 
AND EXPECTED PUNETIONAL ITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: OCT, 1977 
| 
| 


Oooo 
SOSOSCCOCSOSOSOSDSOOSOSSOSSOSSOSOSOSOSOSOSOSSOOSOOSOOOOSOSoO 
OOCCCCOCOCOOCOSOSOSOOSOOOOOCOOCOOOSOOOOCOOOOOOOoOoOS 


SOOOOCOCCOCSOOOCOOC COCO OOOOSO OOOO OOOOOOOOOCOoOOO 


PI OOD NA NE WWIN -2£ 9 OOO NAME WIN $$ O OD NAU EWN OOD NAME WN OOOO ES win 


Bee Be Ge Ge Ge Se Se Se Fe Ge Se Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge 
pa 


MUIR ERE EEL ES PWWWWIINIIinononononononononony 2 2 


CGOCOCCOCOCOCOOCOCOCSOOOSOOOOOOOOOOOCOSOOOOOoOOoOO 
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MODIFIED BY: 

0 v03-001 ‘ated Larry D. J 23-Jun-1983 
Removed quota list” te use “Teles sysboot quota values. 
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SATSS$41 SA 
vOu=000 DE “SEP=1 UETPSY.S REIS SATSSS41.MAR;1 


EQUATED SYMBOLS: 


OWN STORAGE: 


4 .SBTTL DECLARATIONS 
: ; INCLUDE FILES: 
: ‘ SPRVDEF : PRIVILEGE BIT DEFINITIONS 
SPHDDEF + PROCESS HEADER OFFSETS 
60 SPQLDEF + PROCESS QUOTA CODES 
61 SPCBDEF + PCB LABELS 
0 6¢ SDIBDEF t DEVICE INFO BLOCK OFFSETS 
‘3 : MACROS: 
00 «6? 
0 68 
0 69 
0 0 
0 71 


B 3 
SATSSS41 SATS SYSTEM SERVICE TESTS SEXIT (SUCC S 16-SEP-1984 00:53: AX/VMS v04-0 Page 3 
yo42000 DECLARATIONS -SEP=1984 4 8 33 #8 YUETPSY.€ Y.SRCISATSSS4 ma” 6 
0000 00 3 -PSECT RODATA, RD, NOWRT NO XE LONG 
0 4 TEST_MOD_NAME:: STRING SATSSS4 TEST MODULE NAME 
5 TEST“MOD"NAME_D: STRING f *eaaTeseai> TEST MODULE NAME DESCRIPTOR 

9 id: MSGITINPICTL:~ STRING I.< SSEXI!42w: ionbiT109s¢ :> 

Pie ; FAO CTL STRING FOR MSGi IN SUCCOMMON.MAR 
0 9 £8 MSG3_ERR_CTL:: STRING I,< *SSEXI!4ZW: 'AS> 

to? : FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
0051 0 CRENAME : STRING 1,<SATSSS41_CRE> ; PROCESS & MBX NAME FOR CREATED PROCESS 
09 5 1 IMAGNAM: STRING 1,<SYSTSTSRES:SATSUTO9. EXE> 
084 é ; IMAGE NAME FOR CREATED PROCESS 
0084 3 ;QUOTALIST: SQUOTA CPULM, 3 > INFINITE CPU 
00 4 4: SQUOTA BYTLM, 12 : BYTE LIMIT FOR BUFFERED 1/0 

4 5: SQUOTA FILLM, > OPEN FILE COUNT LIM 
0084 86 : SQUOTA PoFLOU9 TA,10 —-: PAGING FILE QUOTA 
0084 7: $QUOTA PRCLM, > SUBPROCESS QUOTA 
0084 88: SQUOTA TQELM, : TIMER QUEUE ENTRY QUOTA 
0084 89: SQUOTA LISTEND > DEFINES END OF LIST 
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00000 
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000014" 

00 ge 
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=SEP=1984 04: UETPSY.SREISATSSS41 .MAR; 1 (1) 
1 .PSECT RWDATA,RD,WRT,NOEXE , LONG 
¢ GRIVMASK: BLKQ ° 1 ; ADDR OF PRIVILEGE MASK (IN 
MBX CHAN “BLKL ot : CHAN NO. FOR MAILBOX FOR CREATED PROCESS 
94 MBXCHANINFO: ; CHANNEL INFO RETURNED BY GETCHN 
95 “LONG DIBSK_LENGTH 
é “ADDRESS , 
9 "BLKB DIBSK_LENGTH 
98 NBXUNIT: LKL ; SAVE AREA FOR MAILBOX UNIT NUMBER 
99 MBXBUFF : STRING 0,120 ; MAILBOX BUFFER FOR CREATED PROCESS 
00 CREPID: BLKL : PID OF CREATED PROCESS 
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-SEP-19 
.SBTTL CONDITION TABLES 
eeeee CONDITION TABLES FOR EXIT SYSTEM SERVICE *eeee 
COND  1,NOTARG,<PROCESS TYPE>,- 
<SUBPROCESS> 
<DETACHED, DIFFERENT GROUP>,- 


<DETACHED, SAME GROUP, SAME MEMBER> 
<DETACHED, SAME GROUP, DIFFERENT MEMBER? - 


4 04: 


LONG 0 3 PSEUDO-UIC 
«BLK 1 ; UIC 
-BLKL 1 ; UIC 
-BLKL 1 3; ulCc 


COND 2,NULL 
COND 3,NULL 
COND 4,NULL 
COND 5.NULL 
~-PSECT SATSSS41,RD,WRT,EXE 
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.SBTTL TM_SETUP, TM_CLEANUP 
FUNCTIONAL DESCRIPTION: 
neavinen wouseeSELL” ate" afb Eat Ro ABE RESET GEE, o 
TEST MODULE EXECUTION. 
CALLING SEQUENCE: 
BSBW TM_SETUP B8SBW TM_CLEANUP 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
ALL PRIVILEGES ACQUIRED. 
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COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 
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TM_SETUP: : 
CLRL R ; went 3th 
CLRL R 3 ONDITION 


oo 


R " RS 
BSBW MOD_MSG _P PRINT T BEGIN 
MOVAL TEST_MOD et tt TMD_ADDR ASSUN LL S$ CHOW SUCCESS 
CODE FOR SUCCESS 


INSV  #SUCTESS7#0,#5,MOB_MSG_ cio 


§ 
T 
RN ; KERNEL MODE TO ACCESS PHD 
MOVL Te och R9 GET PRO HEADER ADDRESS 
MOVAL PHDSO PRIVASK(R9) Pains ; GET PRIV MASK ADDRESS 
FROM BACK TO USER MODE 
PRIV  ADD,ALL * ; GET ALL PRIVILEGES 


FF 
00000000"°EF 00000000 a4 43 
03 00 00000000 F 
00000000' 


ULE 
WIL 
TUS 
AC 


wrn 


59 00000000'9F D0 
Q0000000°EF 69 ODE 


SOSOTOSOOSDSOOOSOSOSSOOSOSSOSOSOSOOOOSOOSSOSOSOSOOSOSSOOOSDOSOSOOOSOOOSOO =H 
Ae ee eed ed ed SS bb 8 td tt 
WOOYN NNN NNNNNOAAAA AAA MINIMUM EEE BWANA AWA 


SOoooooooo°o°oo 
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| 
eee end 
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v04- TM_SETUP, TM_CLEANUP 984 04:31:16 CUETPSY.SRCJSATSSS41.MAR; 1 (1) 
77 =: 183 SSETPRN_S TEST_MOD_NAME_D ; SET PROCESS NAME 
8 4 SS_CHECR NORMAL : CHECK STATUS CODE RETURNED FROM SETPRN 
8 § : THE FOLLOWING CODE ESTABLISHES UIC'S IN THE CONDITION 1 TABLE 
OB2 188 MODE  10,20$ ; KERNEL MODE TO ACCESS PCB 
59 00000000'°9F DO 0005 189 MOVL  a#SC Nee CURPCB RO ; GET CURRENT PCB ADDRESS 
59 008C C9 DO O0DC 190 MOVL et th YICCR) RO ; PICK UP UIC FROM PCB 
OE] 13) MODE FROM, 20$ 3 «se. AND GET BACK TO USER MODE 
OE 198 : R9 NOW CONTAINS "MY" UIC 
SA 91 9A gE 195 ROVZBL #1,R10 : GET COND1 TABLE INDEX NUMBER INTO A REG 
59 00010000 BF C1 OO0ES 196 #°X10000,R9,COND1_ECR10] ; PUT DIFF GROUP UIC INTO 2ND TABLE ELT 
0000019C'EF4A oe 
SA 6 OOF 197 INCL R10 ; POINT TO 3RD COND1 TABLE ELEMENT 
COODD19C'EF4A 59 DO OOFS 198 MOVL R9,COND1_ECR10] : PUT MY UIC INTO TABLE 
SA OD6 OOF ¢ 199 INCL R10 : POINT TO 4TH COND1 TABLE ELEMENT 
QOOOO19C'EFSA 59 01 C1 a3 00 ADDL3 COND1_€CR10) PUT DIFF MEMBER UIC INTO THE TABLE 
010 01 SCREMBX_S 5" Ehas =MBXCRAN, LOGNAM=CREN AME, = Ger MAILBOX FOR PROCESS 
0107 0¢ $G=#120, PROMSK=A0, BUF GUO=a Py 
Oie¢ 0 S$_CHECK NOR MAL : CHECK NORMAL COMPLETION 
015A 204 SCETCHN. S CHAN=MBXCHA : GET CHAN INFO (UNIT NUMBER) 
015A 205 ube 1BUF =REXCHANINO 
0174 206 S$_CHECK CHECK NORMAL COMPLETION 
00000088'EF  00000020'EF 3c O1A2 207 
05 O1AD 208 RS ; RETURN #0 MAIN ROUTIN 
O1AE 209 TM_CLEANUP : 
O1AE 10 SDELMBX _S__MBXCHAN ; DELETE TERMINATION MAILBOX 
FE41" 30 O1BC 211 BSBW  ~MOD_MSG_PRINT + PRINT TEST MODULE END MSG 
0S O1BF 212 RSB + RETURN TO MAIN ROUTINE 


. 
| 
| 
| 

MOUZWL MBXCHANINFO*8+D18SW_ UNIT, “ABXUNIT SAVE ‘the NUMBER 
| 
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WHICH ARE EXECUTED 


WHENEVER A NEW 
TION OF SUCCOMMON 
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ON TABLE INDEX VALUES 

; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
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BSBW CONDX 
WHERE X = 1,2,3,4,5 


INPUT PARAMETERS: 
: CONTAIN CURRENT o- 


3,4,5, ITI 
FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 


OUTPUT PARAMETERS: 
CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICY DETECTED. 


-SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
Y 
x 
N 
& 
N 
IMPLICIT OUTPUTS: 


FUNCTIONAL DESCRIPTION: 
A 
$s 
s 
D 
0 
R2,3,4,5,6 PRESERVED 


CONFLICT = 0 
COMPLETION CODES: 
NONE 


BSBW CONDX 
IMPLICIT INPUTS: 
2 


R 
NONE 
RSB 
CLEANUP 
RSB 
RSB 
CLEANUP 
RSB 


- 

woooavd«n a 

Ova vc rswo>w~ 9 Ss 
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a) 

re 


N 

N 

I 

N 

E 

L 

C 

0 
CALLING SEQUENCE: 
SIDE EFFECTS: 


++ 


65 COND1 
3 COND2 
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VO4=000. EAS, PISTERAERUUSECZES"EerBB*R Sad “EREPSTERS SOEEESTS VINE CRESE106220 annsn 8° A 
05 is re a a) ; RETURN TO MAIN ROUTINE 
05 it oe COND: : ; RETURN TO MAIN ROUTINE 
05 1e6 6 CONDS ~CUEANUP ; RETURN TO MAIN ROUTINE | 
05 Ase 4 coneS:s ; RETURN TO MAIN ROUTINE 
05 1¢8 e1 CONDS oe ; RETURN TO MAIN ROUTINE 
05 01C9 2 RSS ; RETURN TO MAIN ROUTINE 
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-SBTTL FORM_CONDS 
FUNCTIONAL DESCRIPTION: 


ORM CONDS FORMATS AND PRINTS pe cone eon ABOUT 
THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 


CALLING SEQUENCE: 
BSBW FORM_CONDS 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
one R Co OND TABLES 1,2,3.4,5, RESPECTIVELY 


TITLE TEXT FOR CONDX TABLE 
a iol TEXT FOR CONDX TABLE 
FONDA” .¢ ~ CONTEXT OF THE CONDX TABLE 
CONDX-E - DATA ELEMENTS OF THE CONDX TABLE 

OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 
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FORM_CONDS: : 
SFAO_S MSG1_INP_CTL.FAO_LEN,FAQ_DESC. alEstNUn 
FORMAT CONDITIONS HEADER MSG 


FE14" 30 BSBW our PUT_MSG ee PRINT IT 
14 90 31 CMPB ss #COND1~C,, #NULL : IS CONDITION 1 NULL ? 
1 BNEQU : NO == CONTINUE 
00BF 3 oe RW FORM_CONDSX t YES == SUBROUTINE IS FINISHED 
‘EF QOOO0110'EF oD MOVAL COND1_T ate A : SAVE ADDRESS OF CONDITION 1 TITLE FO 
00000000 ' EF 200001 IE*EFA2 D MOVL  COND1~TABLR2].MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FO 
00000000'EF 00 9 G_¢€TxT SAVE CONDITION 1 CONTEXT FOR FAO 


DOO NA UNE WN 9 OD NA US WIN = OC OD NOME WIN 9 OD NA UE WN OO OES NOU EWN OOONOUE 


9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 
; 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 


MOVE  #CONDT_C 
MOV_VAL COND1_C, © EONDT “EER2],MSG_bATAY ; GIVE COND 1 DATA VALUE TO FAO 


eo 
SATSSS41 SATS SYSTEM SERVICE TESTS SEXIT (SUCC S$ 16-SEP-19 3; AX/VMS Macro Page 
9042000 FORM_CONDS RTS Pa a TS Tact Pe le 
FEB" 30 1 341 BSBW WRITE_MSG2 ; T AND WRITE CONDITION 1 MSG 
14 4 1 1 8 CMPB 7 ONb2"c C,#NULL : is CONDITION NULL 
03 12 1 4 BNEQU + NO == CONTINUE 
0096 3 1A a4 a BRW FORM_CONDSX > YES <= SUBROUTINE IS FINISHED 
QOO00000'EF  OOOODIAC'EF 0D 1 4 MOVAL COND : SAVE ADDRESS OF CONDITION 2 TITLE FOR 
00000000'EF  OO0001AC'EFG3 Bp 4 23 MOVL COND STBER3) MSG ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR 
00000000'EF 14 90 4 348 MOVB  #CON g2,¢ G_¢Tx SAVE CONDITION 2 CONTEXT AO 
B 349 MOV_VAL COND t to NDZ. ioe MSG baTAl: GIVE COND 2 DAT O VALUE TO FAO 
FDC2" 30 B 20 BSB «WRITE ~MSG : FORMAT AND WR TE CONDITION MSG 
14 14 1 1 CMPB ; OND3_C,#NULL : 1s COND IT JON 
03 1 4 36 BNEQU 30$ : : NO == CONTI NuE 
0060 4 oT ee BRW FORM_CONDSX YES == SUBROUTINE JS FINISHED 
QO000000'EF — QOODODIAD'EF DE 8 rh 55 MOVAL COND MSG A ; SAVE ADDRESS OF CONDITION, 3 TITLE FOR 
00000000°EF _000001AD" EF KG D0 0 51 36 MOVL COND tie RZ],MSG_B : SAVE A R OF COND 3 CUR T ELT FOR 
F000 00000' EF 90 0250 35 fons ty MSG_CTXT~ vE CONDITION 3 cOnteRT M34 FAO 
64 38 MOV VAL COND3_C, COND3_ELR4],MSG baat : GIVE COND 3 DATA VALUE TO FAO 
FD99" 30 0264 35 SBQ sO WRITE "MSG ; FORMAT AND WRITE CONDITION 3 MSG 
14 91 0267 360 CMPB = #COND&_C,, #NULL + I$ CONDITION N NULL 
47 13 026A 361 BEQLU FORM | CON Sx : YES == SUBROUTINE IS FINISHED 
Q0000000"EF O00001AE'EF DE $¢ 6¢ MOVAL COND& seas ; SAVE ADDRESS OF CONDITION 4 TITLE FOR 
00000000°EF  OOO00IAE’EFSS 6 MOVL  COND4 “tis R54] MSG B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR 
QO000000'EF 14 90 0283 364 MOVE  #CONDZ_C,MSG_CTX SAVE CONDITION 4 CONTEXT FOR FAO 
028A 365 MOV_VAL COND4_C 2 CONDE. errs), MSG_ bata : GIVE COND 4 DATA VALUE TO FAO 
FD73' 30 028A 366 BSBQ WRITE-MS ; FORMAT AND WRITE CONDITION 4 MSG 
16 14 91 0280 367 CMPB = #CONDS_C,, #NULL : 1S CONDITION NULL 
21 13 0290 68 BEQLU FORM _CONDSX ; YES == SUBROUTINE is” FINISHED 
QOOO0000'EF  OOOOOIAFTEF DE 0292 369 MOVAL CONDS_T,MSG_A : SAVE ADDRESS OF CONDITION 5 TITLE FOR 
00000000'EF  OOO001AF'EF46 DO 029D 370 MOVL COND5 TABERE] MSG_B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR 
00000000'EF 14 90 O2A9 371 MOVB  #CONDS_C,MSG SAVE CONDITION 5 CONTEXT FOR FA 
0280 ie MOV_VAL CON ND> Ct CONDS. EtRS), MSG_ ATA GIVE COND 5 DATA VALUE TO FAO 
FD4D' 30 0280 7 B WRITE-MSG2 ; FORMAT AND ORITE CONDITION 5 MSG 
0283 374 FORM_CONDSX: 
05 C2B3 375 RSB : RETURN TO CALLER 
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VERIFY 


AND 
$aTOw_S S CHAN: MBXCHAN, F NC=#10$ jhedbieLK. - 
P1=MBXBUFF +8. P2=MBXBUF 


SS_ CHECK NORMAL 


WAIT FOR CREATED eTATUS Con SEND MAIL 
CMPL +7 Agi -CREPID 


CHECK FOR NORMAL STAT 
DID CREATED PROC RETURN EXPECTED STATUS ? 
YES -- ALL IS OK 
NO -- LOAD UP EXPECTED AND 
12,R RECEIVED VALUES, THEN EXIT 
VERIFYX: ERR EXIT LONG, <INCORRECT EXIT stATUS’ CODE RETURNED IN MAILBOX> 
RSB ; RETURN TO CALLER 


QOOOO1NC"EF 00000098'EF 


D1 
13 
QOOO0O00'EF  OO00010C'EF D0 
Q0000000"EF  O0000098'EF D0 
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y042000 VERIFY g- SEE 382 8? 37 ‘#6 HUETPSY.€ Y.SRCISA oe509 MARST GAD 
4 j= | 
5 
8 VERIFY:: | 
00000000" EF 5 TSTB CELAG ; SHOULD CONDITIONS BE PRINTED ? 
1 BEQL $ + NO == CONTINU 
FFOB 30 «028 i. BSBW § FORM_CONDS : YES <= FMT & PRINT ALL CONDS FOR THIS T.C. 
OOO0010C'EF 04 . CLRL _—«s CREPID INDICATE CREATED PROCESS NOT YET CREATED 
SCREPRC_S PID ADR=CREP D, PRCNAM=CREN 
UIC=C ECR2), IMAGE ST HACNAA 
DA KUT HORONTTS QUOTASQUOTAL TST 
0 ; CREATE THE SUBJECT PROCESS 
0 SS$_CHECK NORMAL AKE SURE IT CREATED OK 
0 
0 
0 
0 
0 
0 
0 


B4 
B4 
B4 
B4 
B4 
BS 
B 
BF 

3 

3 

3 

3 

3 

3 

3 

3 


B 
C 
C 
C 
F 
; 
5 
8 
8 
8 
9 
A 
F 
F 


Pt ot at at eee 
NO 


ANNE OME HWW POOUMMUIT NO PS 
PUPP SUSU Be BS BS BE EEE 
OWONAUE WN" OOONOU EWI O 


ee 


mM 3 
B SERVICE TESTS SEXIT (SUCC S 16-SEP-1984 80 ee! #6 alyas Be o V04 
b: SATSS 


uw 
2-4 


= 
= 


Dale ele el el Sel Del Del dl De Dede de de da ee ee ee ee ae ee at ee et el el et at et et et 
30 OO 000900 09 00 09 00 0900 09 SIN NI NSIS NIA AAA 
ARO CONAN EWN 0 OD NAUSEA CO OONOAUE Wir 


-00 
~SEP-1984 UETPSY.SR 8A $41.MAR; 1 
i+ ~SBTTL VFY_ CLEANUP 
; FUNCTIONAL DESCRIPTION: 
F VFY tr Te eecurty SYSTEM SERVICES TO UNDO THE 
EFFECT OF THOSE ISSUED THE VERIFY SUBROUTINE. VFY_ CLEANUP MUST 
ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN 
ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED 
IN THE EVENT THAT VFY CLEANUP IS CALLED DURING ERROR PROCESSING, 
WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 
POSSIBLY DISCOVERING A SECOND ERROR. 


CALLING SEQUENCE: 

; BSBW VFY_CLEANUP 
; INPUT PARAMETERS: 

NONE 


: IMPLICIT INPUTS: 
R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
FOR ‘coat TABLES 1,2,3,4,5, RESPECTIVELY. 
FOR X = 1,2,3,4,5 : 
CONDX’E’= ADDRESS OF TABLE OF D ALUES FOR CONDX 
TABCE. IF THE CONTEXT OF eres is A SYSTEM SERVICE 
ARGURENT. THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
FOR CONDX_E. 
: OUTPUT PARAMETERS: 
NONE 
: IMPLICIT OUTPUTS: 
NONE 
: COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
: SIDE EFFECTS: 


SS CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 
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VFY_ CLEANUP: : 
RSB 
-END 


; RETURN TO CALLER 


SATSSS41 
Symbol table 


COND1_C 
COND CLEANUP 
COND1_H 


C 
COND3~ CLEANUP 
COND3_H 
COND3~T 
COND3-_TAB 


COND4_ CLEANUP 
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SATS SYSTEM SERVICE TESTS SEXIT (SUCC S$ | 


FAO 

FOR RA EON NOS 
FORM” CONDSX 
IMAGRAM 

te READVBLK 
MBXBUF F 

MBX CHAN 

1 Laat 
non UNIT 

D_MSG_CODE 

MOD "MSG" PRINT 

MSGT_INP_CTL 

MSG3_ERR_CTL 

MSG_K 


- 


MSG’B 
MSG-CTXT 
NOTARG 

NULL 
OUTPUT_MSG 
PCBSL_OIC 
PHD$Q_PRIVMSK 
PRIVMASK 
PRIV_ARGS 
PROCESS_ERR 
QUAD 

RECV 
REST_REGS 
SAVE ~REGS 
SCHSGL_CURPCB 
5S$_NORMAL 
SUCCESS 
SYSSCMKRNL 
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00000019 
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RERKHREE 
RRARHERE 


00000000 
00000014 


RERKHEKE 


0000008C 
RARRKREEE 
00000000 
00000000 
00000002 
RHRKRREE 
00000008 
ReeRHREE 
Raeekeeee 
REARREEE 
RRRRAREE 
Reeeeane 
Reeeeeee 
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Raeeaaeee 
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RERRRERE 
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cro V04-00 Page 16 
RCJSATSSS41.MAR; 1 (1) 


tee eae ecw net ane oa} 


! Psect synopsis ! 


teas ane secre ear e ee} 


PSECT name Al location PSECT No. Attributes 


. “AS 00000000 <¢ -) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 44444 ( -) Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 00000084 ¢ i ) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA 444 8h ( 432.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS41 QOOOO3F9 ¢ 1017.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


Initialization 35 00 290:00. 11 00:00:00.31 
Command processing 135 00:00: ae 00:00: 201.49 
Pass 1 269 00:00:07.47 00:00:14.1 
Synbol table sort 0 00:00:00.73 00:00:00.99 
Pass 2 107 00:00:01.81 BF RO Oe «8g 
Symbol table output 13 00:00: 9.98 00:00:00.1 
Psect synopsis output 3 00:00:00. 00:00:00.04 
Cross-reference output 0 abs Se 8 00:00:00.00 
Assembler run totals 564 00:00:10.9 00:00:19.47 


The ge; set Limit was 1500 pages. 
39263 bytes_(77 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 473 non-local and 23 local symbols. 
515 sounce Lines were read in Pass 1, producing object records in Pass 2. 

42 pages of virtual memory were used to define 32 macros. 
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Macro Library name Macros defined 


ita $ SHRLIB) ETP.MLB; : 8 
“$ 55$DU SYS.OBJJLIB.MLB;1 § 
“$255$DUA28: SYS IBISTARLET. MLB: 2 1 

TOTALS ‘all Libraries) 29 


864 CETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SATSSS41/0BJ=0BJ$:SATSSS41 MSRC$:SATSSS41/UPDATE=(ENHS$: SATSSS41) *+EXECML$/L1B+SHRLIBS$:UETP/LIB 


SA] 


ORATION 
IETARY 


DIGITAL EQUIPMENT CORP 


DIG 
CONFIDENTIAL.AND PROPR 


‘I 
R 


